#!/usr/bin/perl
use strict;

if($#ARGV!=1){
    die "syntax: pred_gdp.pl file npts\n";
}
my ($file,$npts)=@ARGV;

my $i=0;

$npts=int($npts);

system("head -n $npts $file >out");
system("./Fit 0.5 0.01 -0.01");
